home *** CD-ROM | disk | FTP | other *** search
/ CD Exchange / CD Exchange - Volume 1.iso / graphics / utils / mandelmania_v4.1 / rexx / juliamorph.rexx < prev    next >
OS/2 REXX Batch file  |  1993-10-28  |  8KB  |  410 lines
  1. /*--------------------------------------------------------------------------*/
  2. /*                   Mandelmania - ARexx - Script - File                    */
  3. /*--------------------------------------------------------------------------*/
  4.  
  5. /* This script was sent to me by Paolo Canali */
  6.  
  7. address 'rexx_mandelmania'
  8. options results
  9.  
  10. signal on ERROR 
  11. signal on BREAK_C 
  12. signal on BREAK_D
  13.  
  14. pic      = 0
  15.  
  16. 'getanimfilename'
  17. animname = result
  18.  
  19. if result = 'RESULT' then do
  20.     exit 0
  21.     end
  22.  
  23. 'openanim' animname'.anim' 
  24.  
  25. /*--------------------------------------------------------------------------*/
  26.  
  27. left1   = '-2'
  28. right1  = '2'
  29. bottom1 = '-2'
  30. top1    = '2'
  31. xc1     = '-1.481132075471698'
  32. yc1     = '-0.02058823529411765'
  33. iter1   = 250
  34. type    = 1
  35.  
  36. /*--------------------------------------------------------------------------*/
  37.  
  38. left2   = '-2'
  39. right2  = '2'
  40. bottom2 = '-2'
  41. top2    = '2'
  42. xc2     = '-1.216981132075472'
  43. yc2     = '0.2882352941176471'
  44. iter2   = 250
  45.  
  46. steps   = 30
  47.  
  48. do i=pic to pic+steps-1 
  49.     say 'interpolate' i-pic steps
  50.     'interpolate' i-pic+1 steps left1 right1 bottom1 top1 xc1 yc1 iter1 left2 right2 bottom2 top2 xc2 yc2 iter2 type 
  51.     'saveanim' 
  52.     if i <= 1 then do 
  53.         'savefractal' animname'.'i 
  54.         end 
  55.     end 
  56.  
  57. left1   = left2;
  58. right1  = right2;
  59. bottom1 = bottom2;
  60. top1    = top2;
  61. xc1     = xc2;
  62. yc1     = yc2;
  63. iter1   = iter2;
  64.  
  65. pic = pic+steps
  66.  
  67. /*--------------------------------------------------------------------------*/
  68.  
  69. left1   = '-2'
  70. right1  = '2'
  71. bottom1 = '-2'
  72. top1    = '2'
  73. xc1     = '-1.216981132075472'
  74. yc1     = '0.2882352941176471'
  75. iter1   = 250
  76. type    = 1
  77.  
  78. /*--------------------------------------------------------------------------*/
  79.  
  80. left2   = '-2'
  81. right2  = '2'
  82. bottom2 = '-2'
  83. top2    = '2'
  84. xc2     = '-0.7641509433962265'
  85. yc2     = '0.1852941176470588'
  86. iter2   = 250
  87.  
  88. steps   = 60
  89.  
  90. do i=pic to pic+steps-1 
  91.     say 'interpolate' i-pic steps
  92.     'interpolate' i-pic+1 steps left1 right1 bottom1 top1 xc1 yc1 iter1 left2 right2 bottom2 top2 xc2 yc2 iter2 type 
  93.     'saveanim' 
  94.     end 
  95.  
  96. left1   = left2;
  97. right1  = right2;
  98. bottom1 = bottom2;
  99. top1    = top2;
  100. xc1     = xc2;
  101. yc1     = yc2;
  102. iter1   = iter2;
  103.  
  104. pic = pic+steps
  105.  
  106. /*--------------------------------------------------------------------------*/
  107.  
  108. left1   = '-2'
  109. right1  = '2'
  110. bottom1 = '-2'
  111. top1    = '2'
  112. xc1     = '-0.7641509433962265'
  113. yc1     = '0.1852941176470588'
  114. iter1   = 250
  115. type    = 1
  116.  
  117. /*--------------------------------------------------------------------------*/
  118.  
  119. left2   = '-2'
  120. right2  = '2'
  121. bottom2 = '-2'
  122. top2    = '2'
  123. xc2     = '-0.6132075471698114'
  124. yc2     = '0.4735294117647059'
  125. iter2   = 250
  126.  
  127. steps   = 60
  128.  
  129. do i=pic to pic+steps-1 
  130.     say 'interpolate' i-pic steps
  131.     'interpolate' i-pic+1 steps left1 right1 bottom1 top1 xc1 yc1 iter1 left2 right2 bottom2 top2 xc2 yc2 iter2 type 
  132.     'saveanim' 
  133.     end 
  134.  
  135. left1   = left2;
  136. right1  = right2;
  137. bottom1 = bottom2;
  138. top1    = top2;
  139. xc1     = xc2;
  140. yc1     = yc2;
  141. iter1   = iter2;
  142.  
  143. pic = pic+steps
  144.  
  145. /*--------------------------------------------------------------------------*/
  146.  
  147. left1   = '-2'
  148. right1  = '2'
  149. bottom1 = '-2'
  150. top1    = '2'
  151. xc1     = '-0.6132075471698114'
  152. yc1     = '0.4735294117647059'
  153. iter1   = 250
  154. type    = 1
  155.  
  156. /*--------------------------------------------------------------------------*/
  157.  
  158. left2   = '-2'
  159. right2  = '2'
  160. bottom2 = '-2'
  161. top2    = '2'
  162. xc2     = '-0.3867924528301887'
  163. yc2     = '0.6588235294117648'
  164. iter2   = 250
  165.  
  166. steps   = 20
  167.  
  168. do i=pic to pic+steps-1 
  169.     say 'interpolate' i-pic steps
  170.     'interpolate' i-pic+1 steps left1 right1 bottom1 top1 xc1 yc1 iter1 left2 right2 bottom2 top2 xc2 yc2 iter2 type 
  171.     'saveanim' 
  172.     end 
  173.  
  174. left1   = left2;
  175. right1  = right2;
  176. bottom1 = bottom2;
  177. top1    = top2;
  178. xc1     = xc2;
  179. yc1     = yc2;
  180. iter1   = iter2;
  181.  
  182. pic = pic+steps
  183.  
  184. /*--------------------------------------------------------------------------*/
  185.  
  186. left1   = '-2'
  187. right1  = '2'
  188. bottom1 = '-2'
  189. top1    = '2'
  190. xc1     = '-0.3867924528301887'
  191. yc1     = '0.6588235294117648'
  192. iter1   = 250
  193. type    = 1
  194.  
  195. /*--------------------------------------------------------------------------*/
  196.  
  197. left2   = '-2'
  198. right2  = '2'
  199. bottom2 = '-2'
  200. top2    = '2'
  201. xc2     = '-0.1226415094339623'
  202. yc2     = '0.8441176470588236'
  203. iter2   = 250
  204.  
  205. steps   = 60
  206.  
  207. do i=pic to pic+steps-1 
  208.     say 'interpolate' i-pic steps
  209.     'interpolate' i-pic+1 steps left1 right1 bottom1 top1 xc1 yc1 iter1 left2 right2 bottom2 top2 xc2 yc2 iter2 type 
  210.     'saveanim' 
  211.     end 
  212.  
  213. left1   = left2;
  214. right1  = right2;
  215. bottom1 = bottom2;
  216. top1    = top2;
  217. xc1     = xc2;
  218. yc1     = yc2;
  219. iter1   = iter2;
  220.  
  221. pic = pic+steps-1
  222.  
  223. /*--------------------------------------------------------------------------*/
  224.  
  225. left1   = '-2'
  226. right1  = '2'
  227. bottom1 = '-2'
  228. top1    = '2'
  229. xc1     = '-0.1226415094339623'
  230. yc1     = '0.8441176470588236'
  231. iter1   = 250
  232. type    = 1
  233.  
  234. /*--------------------------------------------------------------------------*/
  235.  
  236. left2   = '-2'
  237. right2  = '2'
  238. bottom2 = '-2'
  239. top2    = '2'
  240. xc2     = '0.3679245283018868'
  241. yc2     = '0.5352941176470589'
  242. iter2   = 250
  243.  
  244. steps   = 40
  245.  
  246. do i=pic to pic+steps-1 
  247.     say 'interpolate' i-pic steps
  248.     'interpolate' i-pic+1 steps left1 right1 bottom1 top1 xc1 yc1 iter1 left2 right2 bottom2 top2 xc2 yc2 iter2 type 
  249.     'saveanim' 
  250.     end 
  251.  
  252. left1   = left2;
  253. right1  = right2;
  254. bottom1 = bottom2;
  255. top1    = top2;
  256. xc1     = xc2;
  257. yc1     = yc2;
  258. iter1   = iter2;
  259.  
  260. pic = pic+steps
  261.  
  262. /*--------------------------------------------------------------------------*/
  263.  
  264. left1   = '-2'
  265. right1  = '2'
  266. bottom1 = '-2'
  267. top1    = '2'
  268. xc1     = '0.3679245283018868'
  269. yc1     = '0.5352941176470589'
  270. iter1   = 250
  271. type    = 1
  272.  
  273. /*--------------------------------------------------------------------------*/
  274.  
  275. left2   = '-2'
  276. right2  = '2'
  277. bottom2 = '-2'
  278. top2    = '2'
  279. xc2     = '0.3301886792452831'
  280. yc2     = '0.0823529411764706'
  281. iter2   = 250
  282.  
  283. steps   = 60
  284.  
  285. do i=pic to pic+steps-1 
  286.     say 'interpolate' i-pic steps
  287.     'interpolate' i-pic+1 steps left1 right1 bottom1 top1 xc1 yc1 iter1 left2 right2 bottom2 top2 xc2 yc2 iter2 type 
  288.     'saveanim' 
  289.     end 
  290.  
  291. left1   = left2;
  292. right1  = right2;
  293. bottom1 = bottom2;
  294. top1    = top2;
  295. xc1     = xc2;
  296. yc1     = yc2;
  297. iter1   = iter2;
  298.  
  299. pic = pic+steps
  300.  
  301. /*--------------------------------------------------------------------------*/
  302.  
  303. left1   = '-2'
  304. right1  = '2'
  305. bottom1 = '-2'
  306. top1    = '2'
  307. xc1     = '0.3301886792452831'
  308. yc1     = '0.0823529411764706'
  309. iter1   = 250
  310. type    = 1
  311.  
  312. /*--------------------------------------------------------------------------*/
  313.  
  314. left2   = '-2'
  315. right2  = '2'
  316. bottom2 = '-2'
  317. top2    = '2'
  318. xc2     = '0.2169811320754717'
  319. yc2     = '-0.02058823529411765'
  320. iter2   = 250
  321.  
  322. steps   = 40
  323.  
  324. do i=pic to pic+steps-1 
  325.     say 'interpolate' i-pic steps
  326.     'interpolate' i-pic+1 steps left1 right1 bottom1 top1 xc1 yc1 iter1 left2 right2 bottom2 top2 xc2 yc2 iter2 type 
  327.     'saveanim' 
  328.     end 
  329.  
  330. left1   = left2;
  331. right1  = right2;
  332. bottom1 = bottom2;
  333. top1    = top2;
  334. xc1     = xc2;
  335. yc1     = yc2;
  336. iter1   = iter2;
  337.  
  338. pic = pic+steps
  339.  
  340. /*--------------------------------------------------------------------------*/
  341.  
  342. left1   = '-2'
  343. right1  = '2'
  344. bottom1 = '-2'
  345. top1    = '2'
  346. xc1     = '0.2169811320754717'
  347. yc1     = '-0.02058823529411765'
  348. iter1   = 250
  349. type    = 1
  350.  
  351. /*--------------------------------------------------------------------------*/
  352.  
  353. left2   = '-2'
  354. right2  = '2'
  355. bottom2 = '-2'
  356. top2    = '2'
  357. xc2     = '0.4056603773584906'
  358. yc2     = '-0.1852941176470588'
  359. iter2   = 250
  360.  
  361. steps   = 40
  362.  
  363. do i=pic to pic+steps-1 
  364.     say 'interpolate' i-pic steps
  365.     'interpolate' i-pic+1 steps left1 right1 bottom1 top1 xc1 yc1 iter1 left2 right2 bottom2 top2 xc2 yc2 iter2 type 
  366.     'saveanim' 
  367.     end 
  368.  
  369. left1   = left2;
  370. right1  = right2;
  371. bottom1 = bottom2;
  372. top1    = top2;
  373. xc1     = xc2;
  374. yc1     = yc2;
  375. iter1   = iter2;
  376.  
  377. pic = pic+steps
  378.  
  379. /*--------------------------------------------------------------------------*/
  380.  
  381. left1   = '-2'
  382. right1  = '2'
  383. bottom1 = '-2'
  384. top1    = '2'
  385. xc1     = '0.4056603773584906'
  386. yc1     = '-0.1852941176470588'
  387. iter1   = 250
  388. type    = 1
  389.  
  390. /*--------------------------------------------------------------------------*/
  391.  
  392. ERROR:
  393. BREAK_C:
  394. BREAK_D:
  395. if (RC ~= 0) then do
  396.     say ' 'SIGL '*-*' SOURCELINE(SIGL)
  397.     say 'Error' RC
  398.     end
  399.  
  400. 'openfractal' animname'.0'    /* For looped animations */
  401. 'saveanim'
  402. 'openfractal' animname'.1'
  403. 'saveanim'
  404.  
  405. 'closeanim'
  406.  
  407. address command 'delete' animname'.0 QUI